Найти сумму четных элементов массива- QBasic(Бейсик)

CLS
INPUT "введите размер массива*"; n
DIM A(n)
PRINT "введите массив"
FOR i = 1 TO n
INPUT A(i)
NEXT i
s = 0
FOR i = 1 TO n
IF A(i) MOD 2 = 0 THEN s = s + A(i)
NEXT i
PRINT "Сумма четных элементов массива*="; s
END